home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Hisoft Basic v1.03 disk 2.adf / calc.bas < prev    next >
BASIC Source File  |  1988-12-19  |  280b  |  19 lines
  1. REM $EVENT OFF
  2. REM $OPTION a-o-x-n-
  3.  
  4. 10 PRINT "BYTE CALC Benchmark see May 85 issue"
  5. t=timer
  6. 20 NR=5000
  7. 30 A=2.718281828459045
  8. 40 B=3.141592653589794
  9. 50 C=1
  10. 60 FOR I=1 TO NR
  11. 70 C=C*A
  12. 80 C=C*B
  13. 90 C=C/A
  14. 100 C=C/B
  15. 110 NEXT I
  16. t=timer-t
  17. 120 PRINT "ERROR=";C-1
  18. print "Took" t "seconds"
  19.